﻿Module Module1

    Sub Main()
        Dim base, altura As String
        Dim base1, altura1 As Decimal
        Console.Title = "Ejercicio if condicional 5)"
        Console.WriteLine("Introduzca el tamaño de la finca en metros ")
        Console.Write("Base : ")
        base = Console.ReadLine()
        Console.Write("altura : ")
        altura = Console.ReadLine()
        If (IsNumeric(base) Or IsNumeric(altura)) Then
            base1 = base
            altura1 = altura
            If base1 <= 0 Or altura1 <= 0 Then
                Console.WriteLine("Imposible, has introducido algun valor erróneo")
            End If
        Else
            Console.WriteLine("Imposible, has introducido algun valor erróneo")
        End If

    End Sub

End Module
